home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / pctj8406.arc / REBUILD.PRG < prev    next >
Text File  |  1986-09-14  |  512b  |  20 lines
  1. ***  Program to Copy Files Using GOTO Command
  2.  
  3. SELECT PRIMARY
  4. USE summary
  5. SELECT SECONDARY
  6. USE temp
  7. SELECT PRIMARY
  8. STORE 1 TO ctr
  9. STORE 60 TO max
  10. DO WHILE ctr<=max
  11.      GOTO ctr
  12.      SELECT SECONDARY
  13.      APPEND BLANK
  14.      REPLACE s.type WITH p.type, s.name WITH p.name
  15.      REPLACE s.total WITH p.total, s.income WITH p.income
  16.      REPLACE s.thrs WITH p.thrs
  17.      SELECT PRIMARY
  18.      STORE ctr+1 TO ctr
  19. ENDDO
  20.